COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TYPER
C00004 ENDMK
C⊗;
	TITLE TYPER
	A←1 ↔B←2↔C←3 ↔D←4 ↔E←5↔X←6↔Y←7
	P←17 ↔ NBUFS←4
PDL:	BLOCK 22
IBUF:	BLOCK 4
OBUF:	BLOCK 4
FILNAM:	'ROM   '
	'DMP   '
	0
	0
FIL2:	'EROM  '
	'OCT   '
	0
	0

STAR:	MOVE P,[PDPO:	IOWD 22,PDL]
	OPEN 11,[14↔'DSK   '↔IBUF]
	JRST 4,.
	INBUF 11,NBUFS
	LOOKUP 11,FILNAM
	JRST 4,.
	OPEN [14↔'DSK   '↔OBUF,,]
	JRST 4,.
	OUTBUF NBUFS
	ENTER FIL2
	JRST 4,.

	HRROI Y,-777

LOADER:	PUSHJ P,INP+1
	HRRZI X,200
	ADD X,IBUF+2
	AOJL Y,LOADER
	
	HRLZI Y,-400
LOAD:	PUSHJ P,INP
	PUSHJ P,OUTP
	HRRZ A,1(X)
	HRRZM A,1(Y)
	AOBJP Y,DONE
	AOBJN X,LOAD+2
	JRST LOAD

DONE:	PUSHJ P,OUTP
	RELEAS
	EXIT

INP:	HRRM X,IBUF+1
	IN 11,
	JRST SETX
	STATO 11,20000
	JRST 4,.
	OUTSTR ["????"]
	EXIT

OUTP:	HRRM Y,OBUF+1
	OUT
	CAIA
	JRST 4,.
	HRR Y,OBUF+1
	POPJ P,

SETX:	HRRZ X,IBUF+2
	MOVNI X,(X)
	HRLZI X,(X)
	HRR X,IBUF+1
	POPJ P,
END STAR